home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / qbsnip.zip / CURPATH.BAS < prev    next >
BASIC Source File  |  1996-11-17  |  447b  |  19 lines
  1. DECLARE FUNCTION CurPath$ (drive%)
  2. 'Get Current Path
  3. DEFINT A-Z
  4. '$INCLUDE: 'qb.bi'
  5.  
  6. path$ = CurPath$(0)
  7. PRINT path$
  8.  
  9. FUNCTION CurPath$ (drive%)
  10. DIM regsx AS RegTypeX, regs AS RegType
  11. regs.ax = &H1900
  12. c$ = SPACE$(64): regsx.ax = &H4700: regsx.dx = drive%
  13. regsx.ds = VARSEG(c$): regsx.si = SADD(c$)
  14. INTERRUPTX &H21, regsx, regsx
  15. INTERRUPT &H21, regs, regs
  16. CurPath$ = CHR$((regs.ax AND &HFF) + 65) + ":\" + LTRIM$(c$)
  17. END FUNCTION
  18.  
  19.